﻿Imports Control.clases
Public Class EditarDetalle
    Inherits System.Web.UI.Page

    Dim equipo As New clsEquipo
    Dim marca As New clsMarca
    Dim categoria As New clsCategoria

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim dtAux As Data.DataTable
        Dim dtDetalle As Data.DataTable

        If Not IsPostBack Then
            If Not Session.Item("s_nombre") Is Nothing Then
                If Session("s_usuario").ToString() = "Usuario" Or Session("s_usuario").ToString() = "Administrador" Then

                    Dim id As Integer = Integer.Parse(Request.QueryString("id").ToString())

                    dtAux = marca.listarMarca()
                    With cmbMarca
                        .DataSource = dtAux
                        .DataValueField = "id_marca"
                        .DataTextField = "marca_descripcion"
                        .DataBind()
                    End With
                    dtAux = categoria.listarCategoria()
                    With cmbCategoria
                        .DataSource = dtAux
                        .DataValueField = "id_categoria"
                        .DataTextField = "tipo_categoria"
                        .DataBind()
                    End With

                    dtDetalle = equipo.buscarDetalleEquipo(id)
                    lblCodigoDetalle.Text = dtDetalle.Rows(0)("id_detalle_equipo").ToString()
                    cmbCategoria.SelectedValue = dtDetalle.Rows(0)("tb_categoria_id_categoria").ToString()
                    txtProducto.Text = dtDetalle.Rows(0)("detalle_equipo_descripcion").ToString()
                    cmbMarca.SelectedValue = dtDetalle.Rows(0)("tb_marca_id_marca").ToString()
                    txtCantidad.Text = dtDetalle.Rows(0)("detalle_equipo_cantidad").ToString()
                    lblCodigoEquipo.Text = dtDetalle.Rows(0)("id_equipo").ToString()
                End If
            Else
                Response.Redirect("Default.aspx")
            End If            
        End If
    End Sub

    Protected Sub btnSi_Click(sender As Object, e As EventArgs) Handles btnSi.Click
        Dim id As Integer = Integer.Parse(Request.QueryString("id").ToString())
        If equipo.actualizarDetalleEquipo(Integer.Parse(lblCodigoDetalle.Text), cmbCategoria.SelectedValue, txtProducto.Text, cmbMarca.SelectedValue,
                                       Integer.Parse(txtCantidad.Text), Integer.Parse(lblCodigoEquipo.Text)) Then
            Response.Redirect("Default.aspx")
        End If
    End Sub

    Protected Sub btnNo_Click(sender As Object, e As EventArgs) Handles btnNo.Click
        Response.Redirect("Default.aspx")
    End Sub
End Class